on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否当我的女朋友，否则会被关机......"" ",0 ,true

dim a

do while (a "愿意")

a = inputbox ("你愿意当我的女朋友吗","爱的表白","",8000,7000)

if ( a "愿意" ) then

msgbox "不愿意么？再考虑一下哦"

end if

loop

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox "嘿嘿嘿"

msgbox "叫我老公"

msgbox "快点亩穗"

dim b

do while (a "老公")

a = inputbox ("叫吧袭耐粗","叫的你就是我老婆了","",8000,7000)

if ( a "老公" ) then

msgbox "不愿意叫吗？再考虑一下哦"

end if

loop

msgbox "老婆~"拍镇

msgbox "mua~"

msgbox "爱你"

msgbox "嘿嘿"

文字都可随便替换，同时msgbox为弹窗，是可以增加，删除的

1、KS97新建一个文本 输入代码

2、鼠标左键点击文本左上角文件，再点击另存为。

3、点击后会弹侍枣前出以下窗口，文件名改成：表白示例.vbs，保存类型改为：所有文件，然后点击确定。

4、点击确定后，完成制作，电脑桌面上会显示一个vbs文件。鼠标左键双击单开刚才保存vbs文件，就会像抖音里面的一样了。

抖音表白代码怎么写

方法一

msgbox("做我女朋友好吗?")

msgbox("房产证写你名字...")

msgbox("保大...")

msgbox("我妈老清会游泳..")

x=msgbox("做我女朋友好不好"，VbOkCancel)

if x=VbOk then

msgbox("爱你，么么哒")

elseif x=VbCancel then

msgbox("哼，再见")

set ws=createobject("wscript.shell")

ws.run"cmd.exe /cshutdown-s -f -t 0"

end if

使用方法：将第一段示例或者第二段示例复制到一个新建的文本文档中，保存。然后修改文本文档的后缀为vbs，如果会弹出如下面的弹窗，就表明成功了。大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。

方法二

直接在电脑上打开一个记事本

输入一下内容

asgbox(“做我女朋友好吗?”)

hsgbox("房产证上写称名”)

asgbox("保大”)

hsgbox("我妈岩困会游泳)1

文字可以任意输入

保存在桌面上

将记事本的后缀改成.vbs，效果如下图，打开文本即可跳出对话框界面

Private Sub Form_Click()

On Error Resume Next

Dim i As Integer, a As Integer

Randomize

Me.Caption = "正在生拆含哪成随老档机旅码数中 ...."

Do While Not a = 10000

a = a + 1

Print Int(Rnd * (800 - 200 + 1)) + 1

Loop

Cls

Print "520"

Me.Caption = "生成结束,最后得出:520"

End Sub

欢迎分享，转载请注明来源：内存溢出

原文地址:https://outofmemory.cn/yw/8284202.html